home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / wui_25a.zip / WUI.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-05-14  |  11KB  |  385 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN007
  20.     String   STRING008
  21.     String   STRING009
  22.     String   STRING010
  23.     String   STRING011
  24.     String   STRING012
  25.     String   STRING013
  26.     String   STRING014
  27.     String   STRING015
  28.     String   STRING016
  29.     String   STRING017
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     GetUser
  34.     Gosub LABEL020
  35.     GetToken STRING009
  36.     If (Strip(STRING009, " ") == "A") Goto LABEL002
  37.     If (Strip(STRING009, " ") == "B") Goto LABEL003
  38.     If (Strip(STRING009, " ") == "C") Goto LABEL004
  39.     If (Strip(STRING009, " ") == "D") Goto LABEL005
  40.     If (Strip(STRING009, " ") == "E") Goto LABEL006
  41.     If (Strip(STRING009, " ") == "F") Goto LABEL007
  42.     If (Strip(STRING009, " ") == "G") Goto LABEL008
  43.     If (Strip(STRING009, " ") == "H") Goto LABEL009
  44.     If (Strip(STRING009, " ") == "I") Goto LABEL010
  45.     If (Strip(STRING009, " ") == "J") Goto LABEL011
  46.     If ((Strip(STRING009, " ") == "K") && Psa(3)) Goto LABEL012
  47.     If ((Strip(STRING009, " ") == "L") && Psa(3)) Goto LABEL013
  48.     If ((Strip(STRING009, " ") == "M") && Psa(3)) Goto LABEL014
  49.     If ((Strip(STRING009, " ") == "N") && Psa(3)) Goto LABEL015
  50.     If ((Strip(STRING009, " ") == "O") && Psa(3)) Goto LABEL016
  51.     If ((Strip(STRING009, " ") == "P") && Psa(3)) Goto LABEL017
  52.     If ((Strip(STRING009, " ") == "X") && Psa(1)) Goto LABEL018
  53.     If (Strip(STRING009, " ") == "V") Goto LABEL019
  54.     If (Strip(STRING009, " ") <> "") STRING009 = ""
  55.     :LABEL001
  56.     Cls
  57.     STRING008 = ""
  58.     PrintLn "@X7F┌─────────────────────────────────────────────────────────────────────────────@X70┐@X07"
  59.     PrintLn "@X7F│ @X70@SYSDATE:8@        @X7BW R I T E   U S E R   I N F O R M A T I O N        @X70@SYSTIME:5@:04 │@X07"
  60.     PrintLn "@X7F└@X70─────────────────────────────────────────────────────────────────────────────┘@X07"
  61.     PrintLn "@X70┌─────────────────────────────────────────────────────────────────────────────@X7F┐@X07"
  62.     PrintLn "@X70│ @X71(@X7EA@X71) Change your Password          (@X7EF@X71) Clear the screen between each message @X7F│@X07"
  63.     PrintLn "@X70│ @X71(@X7EB@X71) Change City and State         (@X7EG@X71) Scroll multi-screen messages          @X7F│@X07"
  64.     PrintLn "@X70│ @X71(@X7EC@X71) Business or data phone        (@X7EH@X71) Use long header when reading messages @X7F│@X07"
  65.     PrintLn "@X70│ @X71(@X7ED@X71) Home or voice phone           (@X7EI@X71) Full Screen Editor Default            @X7F│@X07"
  66.     PrintLn "@X70│ @X71(@X7EE@X71) Brand of CPU you are using    (@X7EJ@X71) Set editor workspace to 79 columns    @X7F│@X07"
  67.     If (Psa(1) || Psa(3)) Then
  68.         PrintLn "@X70│                                                                             @X7F│@X07"
  69.         PrintLn "@X70│ @X71(@X7EK@X71) Street Address and Number     (@X7EX@X71) Create or change your ALIAS name      @X7F│@X07"
  70.         PrintLn "@X70│ @X71(@X7EL@X71) Suite or Apartment Number                                               @X7F│@X07"
  71.         PrintLn "@X70│ @X71(@X7EM@X71) City, Town or Village         @X08┌───────────────────────────────────────┐@X70 @X7F│@X07"
  72.         PrintLn "@X70│ @X71(@X7EN@X71) Province or State             @X08│@X0F@USER:38C@@POS:77@@X08│@X70 @X7F│@X07"
  73.         PrintLn "@X70│ @X71(@X7EO@X71) Postal Zip Code               @X08│ @X0E[@X0FExpire: @EXPDATE:8@@X0E]   [@X0FDays Left: @EXPDAYS:3R@@X0E@POS:75@]@POS:77@@X08│@X70 @X7F│@X07"
  74.         PrintLn "@X70│ @X71(@X7EP@X71) Country or Region             @X08└───────────────────────────────────────┘@X70 @X7F│@X07"
  75.         PrintLn "@X70└@X7F─────────────────────────────────────────────────────────────────────────────┘@X07"
  76.         InputStr "(@X0FV@X0E)iew, Write User Information Command", STRING008, 14, 1, Mask_Alpha(), 2 + 4 + 8 + 128 + 32
  77.     Else
  78.         PrintLn "@X70└@X7F─────────────────────────────────────────────────────────────────────────────┘@X07"
  79.         InputStr "(@X0FV@X0E)iew, Write User Information Command", STRING008, 14, 1, "abcdefghijqvABCDEFGHIJQV", 2 + 4 + 8 + 128 + 32
  80.     Endif
  81.     If (STRING008 == "A") Gosub LABEL002
  82.     If (STRING008 == "B") Gosub LABEL003
  83.     If (STRING008 == "C") Gosub LABEL004
  84.     If (STRING008 == "D") Gosub LABEL005
  85.     If (STRING008 == "E") Gosub LABEL006
  86.     If (STRING008 == "F") Gosub LABEL007
  87.     If (STRING008 == "G") Gosub LABEL008
  88.     If (STRING008 == "H") Gosub LABEL009
  89.     If (STRING008 == "I") Gosub LABEL010
  90.     If (STRING008 == "J") Gosub LABEL011
  91.     If ((STRING008 == "K") && Psa(3)) Gosub LABEL012
  92.     If ((STRING008 == "L") && Psa(3)) Gosub LABEL013
  93.     If ((STRING008 == "M") && Psa(3)) Gosub LABEL014
  94.     If ((STRING008 == "N") && Psa(3)) Gosub LABEL015
  95.     If ((STRING008 == "O") && Psa(3)) Gosub LABEL016
  96.     If ((STRING008 == "P") && Psa(3)) Gosub LABEL017
  97.     If ((STRING008 == "X") && Psa(1)) Gosub LABEL018
  98.     If (STRING008 == "V") Gosub LABEL019
  99.     If (STRING008 == "Q") Goto LABEL021
  100.     If (STRING008 == "") Goto LABEL021
  101.     Goto LABEL001
  102.     :LABEL002
  103.     If (Exist(PPEPath() + "WUI_A")) DispFile PPEPath() + "WUI_A", 4 + 2 + 1
  104.     PromptStr 152, STRING010, 13, Mask_Pwd(), 2 + 4 + 8 + 128 + 1 + 256
  105.     If (STRING010 == "") Return
  106.     PromptStr 111, STRING011, 13, Mask_Pwd(), 2 + 4 + 8 + 128 + 1
  107.     If (STRING010 <> STRING011) Then
  108.         PrintLn 
  109.         DispText 110, 128 + 2048
  110.         Delay 30
  111.         PrintLn 
  112.     Else
  113.         BOOLEAN007 = 1
  114.         U_Pwd = STRING010
  115.     Endif
  116.     STRING010 = ""
  117.     STRING011 = ""
  118.     If (STRING009 == "") Return
  119.     Goto LABEL021
  120.     :LABEL003
  121.     BOOLEAN007 = 1
  122.     If (Exist(PPEPath() + "WUI_B")) DispFile PPEPath() + "WUI_B", 4 + 2 + 1
  123.     PromptStr 265, U_City, 24, Mask_Ascii(), 2 + 4 + 8 + 128
  124.     If (STRING009 == "") Return
  125.     Goto LABEL021
  126.     :LABEL004
  127.     BOOLEAN007 = 1
  128.     If (Exist(PPEPath() + "WUI_C")) DispFile PPEPath() + "WUI_C", 4 + 2 + 1
  129.     PromptStr 113, U_BDPhone, 13, Mask_Num() + "-", 2 + 4 + 8 + 128
  130.     If (STRING009 == "") Return
  131.     Goto LABEL021
  132.     :LABEL005
  133.     BOOLEAN007 = 1
  134.     If (Exist(PPEPath() + "WUI_D")) DispFile PPEPath() + "WUI_D", 4 + 2 + 1
  135.     PromptStr 114, U_HVPhone, 13, Mask_Num() + "-", 2 + 4 + 8 + 128
  136.     If (STRING009 == "") Return
  137.     Goto LABEL021
  138.     :LABEL006
  139.     BOOLEAN007 = 1
  140.     If (Exist(PPEPath() + "WUI_E")) DispFile PPEPath() + "WUI_E", 4 + 2 + 1
  141.     PromptStr 2, U_Cmnt1, 30, Mask_Ascii(), 2 + 4 + 8 + 128
  142.     If (STRING009 == "") Return
  143.     Goto LABEL021
  144.     :LABEL007
  145.     BOOLEAN007 = 1
  146.     If (Exist(PPEPath() + "WUI_F")) DispFile PPEPath() + "WUI_F", 4 + 2 + 1
  147.     PromptStr 556, STRING012, 1, "YN", 2 + 4 + 8 + 128 + 16384
  148.     If (STRING012 == NoChar()) U_Cls = 0
  149.     If (STRING012 == YesChar()) U_Cls = 1
  150.     If (STRING009 == "") Return
  151.     Goto LABEL021
  152.     :LABEL008
  153.     BOOLEAN007 = 1
  154.     If (Exist(PPEPath() + "WUI_G")) DispFile PPEPath() + "WUI_G", 4 + 2 + 1
  155.     PromptStr 627, STRING013, 1, "YN", 2 + 4 + 8 + 128 + 16384
  156.     If (STRING013 == NoChar()) U_Scroll = 0
  157.     If (STRING013 == YesChar()) U_Scroll = 1
  158.     If (STRING009 == "") Return
  159.     Goto LABEL021
  160.     :LABEL009
  161.     BOOLEAN007 = 1
  162.     If (Exist(PPEPath() + "WUI_H")) DispFile PPEPath() + "WUI_H", 4 + 2 + 1
  163.     PromptStr 628, STRING014, 1, "YN", 2 + 4 + 8 + 128 + 16384
  164.     If (STRING014 == NoChar()) U_LongHDR = 0
  165.     If (STRING014 == YesChar()) U_LongHDR = 1
  166.     If (STRING009 == "") Return
  167.     Goto LABEL021
  168.     :LABEL010
  169.     BOOLEAN007 = 1
  170.     If (Exist(PPEPath() + "WUI_I")) DispFile PPEPath() + "WUI_I", 4 + 2 + 1
  171.     PromptStr 583, STRING015, 1, "YNA", 2 + 4 + 8 + 128
  172.     Select Case (STRING015)
  173.         Case NoChar()
  174.             U_FSEP = 0
  175.             U_FSE = 0
  176.         Case YesChar()
  177.             U_FSEP = 0
  178.             U_FSE = 1
  179.         Case "A"
  180.             U_FSEP = 1
  181.             U_FSE = 0
  182.     End Select
  183.     If (STRING009 == "") Return
  184.     Goto LABEL021
  185.     :LABEL011
  186.     BOOLEAN007 = 1
  187.     If (Exist(PPEPath() + "WUI_J")) DispFile PPEPath() + "WUI_J", 4 + 2 + 1
  188.     PromptStr 637, STRING016, 1, "YN", 2 + 4 + 8 + 128 + 16384
  189.     If (STRING016 == NoChar()) U_Def79 = 0
  190.     If (STRING016 == YesChar()) U_Def79 = 1
  191.     If (STRING009 == "") Return
  192.     Goto LABEL021
  193.     :LABEL012
  194.     BOOLEAN007 = 1
  195.     If (Exist(PPEPath() + "WUI_K")) DispFile PPEPath() + "WUI_K", 4 + 2 + 1
  196.     InputStr "Street Address and Number", U_Addr(0), 14, 50, Mask_Ascii(), 2 + 4 + 8 + 128
  197.     If (STRING009 == "") Return
  198.     Goto LABEL021
  199.     :LABEL013
  200.     BOOLEAN007 = 1
  201.     If (Exist(PPEPath() + "WUI_L")) DispFile PPEPath() + "WUI_L", 4 + 2 + 1
  202.     InputStr "Suite or Apartment Number", U_Addr(1), 14, 50, Mask_Ascii(), 2 + 4 + 8 + 128
  203.     If (STRING009 == "") Return
  204.     Goto LABEL021
  205.     :LABEL014
  206.     BOOLEAN007 = 1
  207.     If (Exist(PPEPath() + "WUI_M")) DispFile PPEPath() + "WUI_M", 4 + 2 + 1
  208.     InputStr "City, Town or Village", U_Addr(2), 14, 25, Mask_Ascii(), 2 + 4 + 8 + 128
  209.     If (STRING009 == "") Return
  210.     Goto LABEL021
  211.     :LABEL015
  212.     BOOLEAN007 = 1
  213.     If (Exist(PPEPath() + "WUI_N")) DispFile PPEPath() + "WUI_N", 4 + 2 + 1
  214.     InputStr "Province or State", U_Addr(3), 14, 10, Mask_Ascii(), 2 + 4 + 8 + 128
  215.     If (STRING009 == "") Return
  216.     Goto LABEL021
  217.     :LABEL016
  218.     BOOLEAN007 = 1
  219.     If (Exist(PPEPath() + "WUI_O")) DispFile PPEPath() + "WUI_O", 4 + 2 + 1
  220.     InputStr "Postal/Zip Code", U_Addr(4), 14, 10, Mask_Num() + "-", 2 + 4 + 8 + 128
  221.     If (STRING009 == "") Return
  222.     Goto LABEL021
  223.     :LABEL017
  224.     BOOLEAN007 = 1
  225.     If (Exist(PPEPath() + "WUI_P")) DispFile PPEPath() + "WUI_P", 4 + 2 + 1
  226.     InputStr "Country or Region", U_Addr(5), 14, 15, Mask_Ascii(), 2 + 4 + 8 + 128
  227.     If (STRING009 == "") Return
  228.     Goto LABEL021
  229.     :LABEL018
  230.     If ((ReadLine(PCBDat(), 259) == "0") && (U_Alias <> "")) Then
  231.         PrintLn 
  232.         PrintLn "@X0CSorry, @FIRST@, You have already chosen an ALIAS name."
  233.         PrintLn 
  234.         PrintLn "@X0EThe SysOp has disabled the ability to change your alias name.  You may leave a"
  235.         PrintLn "@X0Ecomment to the System Operator to request a new alias name."
  236.         PrintLn 
  237.         Wait
  238.     Else
  239.         BOOLEAN007 = 1
  240.         If (Exist(PPEPath() + "ALIAS")) DispFile PPEPath() + "ALIAS", 4 + 2 + 1
  241.         PromptStr 690, U_Alias, 25, Mask_Ascii(), 2 + 4 + 8 + 128
  242.         If (U_RecNum(U_Alias) <> -1) Then
  243.             Newlines 2
  244.             DispText 256, 256 + 2048 + 64
  245.             BOOLEAN007 = 0
  246.             Wait
  247.         Endif
  248.     Endif
  249.     If (STRING009 == "") Return
  250.     Goto LABEL021
  251.     :LABEL019
  252.     Cls
  253.     PrintLn "@X70┌─────────────────────────────────────────────────────────────────────────────@X7F┐@X07"
  254.     PrintLn "@X70│ @X74Security Level       @X70: @X71" + String(U_Sec) + "@POS:51@@X74Expert Mode      @X70: @X71" + STRING017 + "@POS:79@@X7F│@X07"
  255.     PrintLn "@X70│ @X74Full Name            @X70: @X71" + U_Name() + "@POS:51@@X74Protocol         @X70: @X71" + U_Trans + "@POS:79@@X7F│@X07"
  256.     PrintLn "@X70│ @X74City and State       @X70: @X71" + U_City + "@POS:51@@X74Page Length      @X70: @X71" + String(U_PageLen) + "@POS:79@@X7F│@X07"
  257.     PrintLn "@X70│ @X74Business Phone       @X70: @X71" + U_BDPhone + "@POS:51@@X74Reg Ex Date      @X70: @X71" + String(U_ExpDate) + "@POS:79@@X7F│@X07"
  258.     PrintLn "@X70│ @X74Home Phone           @X70: @X71" + U_HVPhone + "@POS:51@@X74Days Left        @X70: @X71" + "@EXPDAYS:3R@" + "@POS:79@@X7F│@X07"
  259.     PrintLn "@X70│ @X74Password             @X70: @X71" + U_Pwd + "@POS:51@@X74Message Clear    @X70: @X71" + STRING012 + "@POS:79@@X7F│@X07"
  260.     PrintLn "@X70│ @X74@POS:51@@X74Full Scrn Editor @X70: @X71" + STRING015 + "@POS:79@@X7F│@X07"
  261.     PrintLn "@X70│ @X74Street Address       @X70: @X71" + RTrim(U_Addr(0), " ") + "@POS:51@@X7479-Column Editor @X70: @X71" + STRING016 + "@POS:79@@X7F│@X07"
  262.     PrintLn "@X70│ @X74Suite or Apartment # @X70: @X71" + RTrim(U_Addr(1), " ") + "@POS:51@@X74Scroll Long Msgs @X70: @X71" + STRING013 + "@POS:79@@X7F│@X07"
  263.     PrintLn "@X70│ @X74City/Town or Village @X70: @X71" + RTrim(U_Addr(2), " ") + "@POS:51@@X74Long Headers     @X70: @X71" + STRING014 + "@POS:79@@X7F│@X07"
  264.     PrintLn "@X70│ @X74Province or State    @X70: @X71" + RTrim(U_Addr(3), " ") + "@POS:79@@X7F│@X07"
  265.     PrintLn "@X70│ @X74Postal/Zip Code      @X70: @X71" + RTrim(U_Addr(4), " ") + "@POS:51@@X74Last Date on     @X70: @X71" + String(U_LDate()) + "@POS:79@@X7F│@X07"
  266.     PrintLn "@X70│ @X74Country or Region    @X70: @X71" + RTrim(U_Addr(5), " ") + "@POS:51@@X74Last Time on     @X70: @X71" + String(U_LTime()) + "@POS:79@@X7F│@X07"
  267.     PrintLn "@X70│ @X74@POS:51@Online Today @X70    : @X71" + String(U_TimeOn()) + " min.@POS:79@@X7F│@X07"
  268.     PrintLn "@X70│ @X74Current ALIAS Name   @X70: @X71" + U_Alias + "@POS:79@@X7F│@X07"
  269.     PrintLn "@X70└@X7F─────────────────────────────────────────────────────────────────────────────┘@X07"
  270.     PrintLn 
  271.     Wait
  272.     If (STRING009 == "") Return
  273.     Goto LABEL021
  274.     :LABEL020
  275.     If (U_Expert == 0) STRING017 = "OFF"
  276.     If (U_Expert == 1) STRING017 = "ON "
  277.     If (U_Cls == 0) STRING012 = NoChar()
  278.     If (U_Cls == 1) STRING012 = YesChar()
  279.     If ((U_FSEP == 0) && (U_FSE == 0)) STRING015 = NoChar()
  280.     If ((U_FSEP == 0) && (U_FSE == 1)) STRING015 = YesChar()
  281.     If ((U_FSEP == 1) && (U_FSE == 0)) STRING015 = "A"
  282.     If (U_Def79 == 0) STRING016 = NoChar()
  283.     If (U_Def79 == 1) STRING016 = YesChar()
  284.     If (U_Scroll == 0) STRING013 = NoChar()
  285.     If (U_Scroll == 1) STRING013 = YesChar()
  286.     If (U_LongHDR == 0) STRING014 = NoChar()
  287.     If (U_LongHDR == 1) STRING014 = YesChar()
  288.     Return
  289.     :LABEL021
  290.     If (BOOLEAN007 == 1) Then
  291.         If (STRING009 <> "") PrintLn 
  292.         DispText 273, 256 + 128 + 2048
  293.         PutUser
  294.     Endif
  295.     End
  296.  
  297. ;------------------------------------------------------------------------------
  298. ;
  299. ; Usage report (before postprocessing)
  300. ;
  301. ; ■ Statements used :
  302. ;
  303. ;    1       End
  304. ;    2       Cls
  305. ;    3       Wait
  306. ;    52      Goto 
  307. ;    50      Let 
  308. ;    45      PrintLn 
  309. ;    105     If 
  310. ;    17      DispFile 
  311. ;    1       GetUser
  312. ;    1       PutUser
  313. ;    8       InputStr 
  314. ;    19      Gosub 
  315. ;    20      Return
  316. ;    12      PromptStr 
  317. ;    1       Delay 
  318. ;    1       Newlines 
  319. ;    1       GetToken 
  320. ;    3       DispText 
  321. ;
  322. ;
  323. ; ■ Functions used :
  324. ;
  325. ;    1       -
  326. ;    197     +
  327. ;    86      ==
  328. ;    5       <>
  329. ;    8       !
  330. ;    18      &&
  331. ;    1       ||
  332. ;    6       RTrim()
  333. ;    1       U_Name()
  334. ;    1       U_LDate()
  335. ;    1       U_LTime()
  336. ;    1       U_TimeOn()
  337. ;    10      NoChar()
  338. ;    10      YesChar()
  339. ;    19      Strip()
  340. ;    6       String()
  341. ;    2       Mask_Pwd()
  342. ;    1       Mask_Alpha()
  343. ;    3       Mask_Num()
  344. ;    8       Mask_Ascii()
  345. ;    1       PCBDat()
  346. ;    34      PPEPath()
  347. ;    1       ReadLine()
  348. ;    17      Exist()
  349. ;    16      Psa()
  350. ;    1       U_RecNum()
  351. ;
  352. ;------------------------------------------------------------------------------
  353. ;
  354. ; Analysis flags : WdH
  355. ;
  356. ; W - Write user ■ 5
  357. ;     Program writes a user record. Although this may be normal for a
  358. ;     User Editor, it may also be a way to modify an account level.
  359. ;     ■ Search for : PUTUSER
  360. ;
  361. ; d - Access PCBOARD.DAT ■ 2
  362. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  363. ;     for many PPE so they can find various informations on the system
  364. ;     (system paths, max number of lines in messages, ...) but it may also
  365. ;     be a way to gather vital informations.
  366. ;     ■ Search for : PCBDAT()
  367. ;
  368. ; H - Read Password or Password History ■ 5
  369. ;     Program is reading the user's password or last password history
  370. ;     This may be ok for a password manager, but it is very suspect. Check!
  371. ;     ■ Search for : U_PWDHIST, U_PWD
  372. ;
  373. ;------------------------------------------------------------------------------
  374. ;
  375. ; Postprocessing report
  376. ;
  377. ;    0       For/Next
  378. ;    0       While/EndWhile
  379. ;    5       If/Then or If/Then/Else
  380. ;    1       Select Case
  381. ;
  382. ;------------------------------------------------------------------------------
  383. ;                 AEGiS Corp - Break the routines, code against the machines!
  384. ;------------------------------------------------------------------------------
  385.